home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / Resources / CutePDF 2.3 / converter.exe / GNUGS / VIEWJPEG.PS < prev    next >
Text File  |  2002-02-23  |  5KB  |  153 lines
  1. %! viewjpeg.ps   Copyright (C) 1994 Thomas Merz <tm@pdflib.com>
  2. %
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: viewjpeg.ps,v 1.1.6.2 2002/02/22 19:45:55 ray Exp $
  17. % View JPEG files with Ghostscript
  18. %
  19. % This PostScript code relies on level 2 features.
  20. %
  21. % Only JPEG baseline, extended sequential, and progressive files
  22. % are supported.  Note that Adobe PostScript level 2 does not include
  23. % progressive-JPEG support.  Ghostscript with IJG JPEG v6 or later
  24. % will decode progressive JPEG, but only if you edit gsjmorec.h to
  25. % enable that feature.
  26. %
  27. % Updated by L. Peter Deutsch 20-May-1997:
  28. %   move the usage example to the beginning
  29. % Updates by Tom Lane 6-Sep-1995
  30.  
  31. % Usage example:
  32. %    (jpeg-6/testimg.jpg) viewJPEG
  33.  
  34. /languagelevel where {pop languagelevel 2 lt}{true} ifelse {
  35.   (JPEG needs PostScript Level 2!\n) print flush stop
  36. } if
  37.  
  38. /JPEGdict 20 dict def
  39. JPEGdict begin
  40.  
  41. /NoParamMarkers [    % JPEG markers without additional parameters
  42.     16#D0 16#D1 16#D2 16#D3 16#D4 16#D5 16#D6 16#D7 16#D8 16#01
  43. ] def
  44.  
  45. /NotSupportedMarkers [     % JPEG markers not supported by PostScript level 2
  46.     16#C3 16#C5 16#C6 16#C7 16#C8 16#C9 16#CA 16#CB 16#CD 16#CE 16#CF
  47. ] def
  48.  
  49. % Names of color spaces
  50. /ColorSpaceNames << /1 /DeviceGray /3 /DeviceRGB /4 /DeviceCMYK >> def
  51.  
  52. % read one byte from file F
  53. % - ==> int --or-- stop context
  54. /NextByte { 
  55.     F read not { (Read error in ViewJPEG!\n) print flush stop } if
  56. } bind def
  57.  
  58. /SkipSegment {    % read two bytes and skip that much data
  59.     NextByte 8 bitshift NextByte add 2 sub { NextByte pop } repeat
  60. } bind def
  61.  
  62. % read width, height, and # of components from JPEG markers
  63. % and store in dict
  64. /readJPEGmarkers {    % - ==> dict --or-- stop context
  65.     5 dict begin
  66.  
  67.     { % loop: read JPEG marker segments until we find SOFn marker or EOF
  68.     NextByte
  69.     16#FF eq {                % found marker
  70.         /markertype NextByte def
  71.         % Is it S0F0=baseline, SOF1=extended sequential, SOF2=progressive ?
  72.         markertype dup 16#C0 ge exch 16#C2 le and {
  73.         NextByte pop NextByte pop    % segment length
  74.         % Ghostscript and Adobe PS accept only data precision 8
  75.         NextByte 8 ne {
  76.             (Error: not 8 bits per component!\n) print flush stop 
  77.         } if
  78.  
  79.         % Read crucial image parameters
  80.         /height NextByte 8 bitshift NextByte add def
  81.         /width NextByte 8 bitshift NextByte add def
  82.         /colors NextByte def
  83.  
  84.         DEBUG { currentdict { exch == == } forall flush } if
  85.         exit
  86.         } if
  87.  
  88.         % detect several segment types which are not compatible with PS
  89.         NotSupportedMarkers {
  90.         markertype eq {
  91.             (Marker ) print markertype == 
  92.             (not supported!\n) print flush stop
  93.         } if 
  94.         } forall 
  95.  
  96.         % Skip segment if marker has parameters associated with it
  97.         true NoParamMarkers { markertype eq {pop false exit} if } forall 
  98.         { SkipSegment } if
  99.     } if
  100.     } loop
  101.  
  102.     currentdict dup /markertype undef
  103.     end
  104. } bind def
  105.  
  106. end    % JPEGdict
  107.  
  108. % read image parameters from JPEG file and display the image
  109. /viewJPEG {        % <file|string> ==> -
  110.     save 
  111.     JPEGdict begin
  112.     /saved exch def
  113.     /scratch 1 string def
  114.     dup type /stringtype eq { (r) file } if
  115.     /F exch def
  116.  
  117.     readJPEGmarkers begin
  118.     F 0 setfileposition        % reset file pointer
  119.  
  120.     % We use the whole clipping area for the image (at least in one dimension)
  121.     gsave clippath pathbbox grestore
  122.     /ury exch def /urx exch def
  123.     /lly exch def /llx exch def
  124.  
  125.     llx lly translate
  126.     width height scale
  127.  
  128.     % use whole width or height, whichever is appropriate
  129.     urx llx sub width div ury lly sub height div
  130.     2 copy gt { exch } if pop        % min
  131.     dup scale
  132.     ColorSpaceNames colors scratch cvs get setcolorspace
  133.  
  134.     % prepare image dictionary
  135.     << /ImageType 1
  136.        /Width width
  137.        /Height height
  138.        /ImageMatrix [ width 0 0 height neg 0 height ]
  139.        /BitsPerComponent 8
  140.        % If 4-component (CMYK), assume data is inverted per Adobe Photoshop
  141.        colors 4 eq {
  142.          /Decode [ colors { 1 0 } repeat ]
  143.        } {
  144.          /Decode [ colors { 0 1 } repeat ]
  145.        } ifelse
  146.        /DataSource F /DCTDecode filter
  147.     >> image
  148.  
  149.     end        % image parameter dictionary
  150.  
  151.     saved end restore
  152. } bind def
  153.